I 
I 
I 
I 
I 
I 
I 
i 
I 
I. 


U for NEWDOS Users 


by Ja>» es Garon 

A vt _n J still suffering with the problems and downright errors of TRSDOS? Have you listened with awe and envy 
to the U* 1 *^ of NEWDOS and NEWDOS+? This program is not designed to makeyou feel better. In fact, it is a BASIC 
nronrarll which CANNOT be run under TRSDOS. This is because it makes use of one of NEWDOS' special features: 
the abillW t0 get a DIRector y while remaining in BASIC. 

0nre |he DIRectory is on the screen (which is actually just another 1 K of memory to the Z-80 chip), the program, 
called pUPERMENU, reads the list of programs from the screen and into an array. Each program is assigned a 

svmbol"(@' A, B Z) allowing up to 27 programs to be run with a single keystroke — even machine language 

Droarartl 8 ' This is P ossible because NEWDOS can execute a machine language program from BASIC (if its name 
ends in "/CMD"). SUPERMENU decides automatically whether to "RUN" or "CMD" a given program. 

This \A /,10le P rocess can be made even more automatic by typing (while in DOS): 

AUTO BASIC RUN "SUPERMENU" ; 

Thk rpri' llres ' of course . that y° u also SAVE th e program itself under the name "SUPERMEN" (The computer will 
l^e "U" in the AUTO-command — but it looks nicer). 

Take a look at one of your 


ignore 


If voU fjre willin 9 t0 work a little harder, you can automate your whole program library. 

„jl ori iB. If it has any END statements, change them to: 
oq ran' 


progra 

RUN "SUPERMENU" 

If it has n ° END statement ' then P |ace: RUN "SUPERMENU" after the 


prog ran 


and your program returns to SUPERMENUI 


:ast line. Now SUPERMENU calls your 


Si BUPERMENU as written will create a single key DIRectory/menu for Drive 0, what do you do if you have two 
or more drives? Just change line 30 from ...CMD"DIR" to CMD"DIR :1" and save the new program under the name 
"DRIVE I"' lf you have the drives > save a Program called "DRIVE2" with line 30 containing CMD"DIR :2" and so on 
(Each sl ,Dh P r °9 ram takes on| y one gran). Now, when you press the RESET button, you will soon see a single-key 
menu ol ,he P r °9 rams on Drive °- 0ne of th ern will be called "DRIVE1". Press the letter next to "DRIVE1" and, 
PRESTC 1 ' you are soon 9 azin 9 fondly at the programs on Drive 1! 

-|-ogP,pSers, eat your hearts out! 


10 "SUPER-MENU BY JAMES GRRON - DESIGNED FOR RPPARflT DOS 

J0 BASED ON AN IDEA BY DAVE WINTERS 

iB CLS:PRINT&17, "* S U P E R M E N U *" CLEAR1E3:CMD"DIR" 

r ) PR I NT@8, CHR* < 30 ) TAB < 25 ) " GREAT I NG MENU " : DEF I NTH-Z : DEFSTRA-G 

i-j0 DIMA(26> :L=1:S=15464:P=851.Z=63.PRINT@12& > 

p0 F0RI=0T026:K=I :H=20:R=I-3+INT(I/3) ; IFR=6H=24 

>& S=S+H : IFPEEK(S)-3:2I=26 : L=0 : G0TO118 

00 FORJ=0TO12.M=PEEK(S+J) IFM=32J=12:GOTO190 

y A ( I ) =A < I ) +CHR$ ( M ) 

j.08 NEKT:PRINTTAB(20+R+5;CHR*(64+D") "H(D; : IFR=2PRINTCHR$<29)CHR$<26); 

j.10 NEXT 

j.20 PRINT§0, CHR$C191)CHR$(143)STRING$(b8, 131) CHR* (143) 

STRING$<2, 151), .F0RI=127T0959STEP64:PRINT@L STRINQ*C2* 191), 
NEKT.PRIHTCHR$a88)STRING$(68, i?S)CHR$< 188); : 

P0KE163S3, 19i:PRINTe91, "- M E H U -"; 
130 I FK=8PR I NTi?835, " NO V I S I BLE PROGRAMS " ; . FOR I =8T01STEP8 : NEXT 
4.40 PRINTC«835, "SELECTION (§-"CHR$(64+K+<L=8)>")", GOSUB170 
1.50 PRINTi?P,BTAB( 32) "STAND BV FOR "A<M); 
4.60 IFRIGHT^CACM), 4) = "/CMD", CMDH(M)ELSERUNA(M) 
],70 Z=206-Z:PRINTC«P, CHR*(2>; :F0RI=1T018:B=INKEV$ 
j.80 IFB=""NEXT G0T0178 
1.90 1 FB< " @ " 0RB>CHR$ ( 63+K- ( L=l ) ) THEN170ELSEM=ASC ( B ) -64 : RETURN 


— NOTICE TO S-8IGHTY READERS 

With the May Issue, the S-8ighty Magazine will arrive free of charge only to readers who subscribe 
to either SoftSldeS-80 Edition, or Prog 80. If you have been a customer of The Software Exchange 
In recent weeks, then you will also receive The S-8ighty free of charge. 

To all others, a $3.00 subscription fee for 12 issues will be required. 

Please fill out the attached and return with your subscription fee to: P.O.Box 68 Mllford, New Hampshire 

Name 03055 

Address ! 

City Stale Zip 
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